\ file 05.2.3 NAB

needs core-ext

create pad 84 allot

: S" ( <ccc"> -- c-addr u )
  [char] " parse
  state @ if  postpone sliteral
  else  tuck pad swap move
    pad swap
  then ; immediate
